Pt2Rect
To determine the smallest rectangle that encloses two given points, use thePt2Rect
procedure.
PROCEDURE Pt2Rect (pt1,pt2:†Point; VAR dstRect: Rect);
pt1
- The first of two points to enclose.
pt2
- The second of two points to enclose.
dstRect
- The smallest rectangle that can enclose them.
DESCRIPTION
ThePt2Rect
procedure returns in thedstRect parameter
the smallest rectangle that encloses the two points you specify in thept1
andpt2
parameters.